object DMDados: TDMDados
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 483
  Width = 873
  object conADOServer: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Ha' +
      'bil\Dados\Habil.mdb;Mode=ReadWrite;Persist Security Info=False;J' +
      'et OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB' +
      ':Database Password=amoragape;Jet OLEDB:Engine Type=4;Jet OLEDB:D' +
      'atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet O' +
      'LEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=' +
      '"";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Data' +
      'base=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLED' +
      'B:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 64
    Top = 24
  end
  object dsContas: TDataSource
    DataSet = qryContas
    Left = 168
    Top = 136
  end
  object qryContas: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      '(SELECT'
      '0 AS TIPO,'
      #39'CR - A RECEBER'#39' AS TIPO_DESCRICAO,'
      'VAL(Contas_Receber.Centro_Custo) AS CC_CODIGO,'
      'UCASE(Centros_Custos.Descri'#231#227'o) AS CC_DESCRICAO,'
      'COUNT(Contas_Receber.Centro_Custo) AS LANC_QTDE,'
      'SUM(Contas_Receber.Desconto) AS TOTAL_DESCONTO,'
      'SUM(Contas_Receber.Juros) AS TOTAL_JUROS,'
      'SUM(Contas_Receber.Valor) AS TOTAL_VALOR,'
      'SUM(Contas_Receber.Total) AS TOTAL,'
      
        'SUM(Contas_Receber.Valor - Contas_Receber.Desconto + Contas_Rece' +
        'ber.Juros) AS TOTAL2'
      'FROM Contas_Receber'
      
        'LEFT JOIN Centros_Custos ON (Centros_Custos.Codigo = VAL(Contas_' +
        'Receber.Centro_Custo))'
      'WHERE'
      'Contas_Receber.Centro_Custo IS NOT NULL'
      
        'AND Contas_Receber.Centro_Custo IN ('#39'1'#39', '#39'4'#39', '#39'6'#39', '#39'5'#39', '#39'7'#39', '#39'14' +
        #39', '#39'15'#39', '#39'13'#39', '#39'16'#39', '#39'17'#39', '#39'18'#39', '#39'19'#39', '#39'21'#39', '#39'22'#39')'
      'AND Contas_Receber.Data_Pagamento IS NULL'
      'AND Contas_Receber.Cancelado = 0'
      'GROUP BY'
      'Contas_Receber.Centro_Custo,'
      'Centros_Custos.Descri'#231#227'o)'
      ''
      'UNION'
      ''
      '(SELECT'
      '1 AS TIPO,'
      #39'CR - RECEBIDAS'#39' AS TIPO_DESCRICAO,'
      'VAL(Contas_Receber.Centro_Custo) AS CC_CODIGO,'
      'UCASE(Centros_Custos.Descri'#231#227'o) AS CC_DESCRICAO,'
      'COUNT(Contas_Receber.Centro_Custo) AS LANC_QTDE,'
      'SUM(Contas_Receber.Desconto) AS TOTAL_DESCONTO,'
      'SUM(Contas_Receber.Juros) AS TOTAL_JUROS,'
      'SUM(Contas_Receber.Valor) AS TOTAL_VALOR,'
      'SUM(Contas_Receber.Total) AS TOTAL,'
      
        'SUM(Contas_Receber.Valor - Contas_Receber.Desconto + Contas_Rece' +
        'ber.Juros) AS TOTAL2'
      'FROM Contas_Receber'
      
        'LEFT JOIN Centros_Custos ON (Centros_Custos.Codigo = VAL(Contas_' +
        'Receber.Centro_Custo))'
      'WHERE'
      'Contas_Receber.Centro_Custo IS NOT NULL'
      
        'AND Contas_Receber.Centro_Custo IN ('#39'1'#39', '#39'4'#39', '#39'6'#39', '#39'5'#39', '#39'7'#39', '#39'14' +
        #39', '#39'15'#39', '#39'13'#39', '#39'16'#39', '#39'17'#39', '#39'18'#39', '#39'19'#39', '#39'21'#39', '#39'22'#39')'
      'AND Contas_Receber.Data_Pagamento IS NOT NULL'
      'AND Contas_Receber.Cancelado = 0'
      'GROUP BY'
      'Contas_Receber.Centro_Custo,'
      'Centros_Custos.Descri'#231#227'o)'
      ''
      'UNION'
      ''
      '(SELECT'
      '2 AS TIPO,'
      #39'CP - A PAGAR'#39' AS TIPO_DESCRICAO,'
      'VAL(Contas_Pagar.Centro_Custo) AS CC_CODIGO,'
      'UCASE(Centros_Custos.Descri'#231#227'o) AS CC_DESCRICAO,'
      'COUNT(Contas_Pagar.Centro_Custo) AS LANC_QTDE,'
      'SUM(Contas_Pagar.Desconto)*-1 AS TOTAL_DESCONTO,'
      'SUM(Contas_Pagar.Juros)*-1 AS TOTAL_JUROS,'
      'SUM(Contas_Pagar.Valor)*-1 AS TOTAL_VALOR,'
      'SUM(Contas_Pagar.Total)*-1 AS TOTAL,'
      
        'SUM(Contas_Pagar.Valor - Contas_Pagar.Desconto + Contas_Pagar.Ju' +
        'ros)*-1 AS TOTAL2'
      'FROM Contas_Pagar'
      
        'LEFT JOIN Centros_Custos ON (Centros_Custos.Codigo = VAL(Contas_' +
        'Pagar.Centro_Custo))'
      'WHERE'
      'Contas_Pagar.Centro_Custo IS NOT NULL'
      
        'AND Contas_Pagar.Centro_Custo IN ('#39'1'#39', '#39'4'#39', '#39'6'#39', '#39'5'#39', '#39'7'#39', '#39'14'#39',' +
        ' '#39'15'#39', '#39'13'#39', '#39'16'#39', '#39'17'#39', '#39'18'#39', '#39'19'#39', '#39'21'#39', '#39'22'#39')'
      'AND Contas_Pagar.Data_Pagamento IS NULL'
      'AND Contas_Pagar.Cancelado = 0'
      'GROUP BY'
      'Contas_Pagar.Centro_Custo,'
      'Centros_Custos.Descri'#231#227'o)'
      ''
      'UNION'
      ''
      '(SELECT'
      '3 AS TIPO,'
      #39'CP - PAGAS'#39' AS TIPO_DESCRICAO,'
      'VAL(Contas_Pagar.Centro_Custo) AS CC_CODIGO,'
      'UCASE(Centros_Custos.Descri'#231#227'o) AS CC_DESCRICAO,'
      'COUNT(Contas_Pagar.Centro_Custo) AS LANC_QTDE,'
      'SUM(Contas_Pagar.Desconto)*-1 AS TOTAL_DESCONTO,'
      'SUM(Contas_Pagar.Juros)*-1 AS TOTAL_JUROS,'
      'SUM(Contas_Pagar.Valor)*-1 AS TOTAL_VALOR,'
      
        'SUM(Contas_Pagar.Valor - Contas_Pagar.Desconto + Contas_Pagar.Ju' +
        'ros)*-1 AS TOTAL,'
      'SUM(Contas_Pagar.Total)*-1 AS TOTAL2'
      'FROM Contas_Pagar'
      
        'LEFT JOIN Centros_Custos ON (Centros_Custos.Codigo = VAL(Contas_' +
        'Pagar.Centro_Custo))'
      'WHERE'
      'Contas_Pagar.Centro_Custo IS NOT NULL'
      
        'AND Contas_Pagar.Centro_Custo IN ('#39'1'#39', '#39'4'#39', '#39'6'#39', '#39'5'#39', '#39'7'#39', '#39'14'#39',' +
        ' '#39'15'#39', '#39'13'#39', '#39'16'#39', '#39'17'#39', '#39'18'#39', '#39'19'#39', '#39'21'#39', '#39'22'#39')'
      'AND Contas_Pagar.Data_Pagamento IS NOT NULL'
      'AND Contas_Pagar.Cancelado = 0'
      'GROUP BY'
      'Contas_Pagar.Centro_Custo,'
      'Centros_Custos.Descri'#231#227'o)'
      ''
      'UNION'
      ''
      '(SELECT'
      '4 AS TIPO,'
      #39'NF - RETORNO'#39' AS TIPO_DESCRICAO,'
      
        'VAL(IIF(ISNULL(TRIM(Movimento_Estoque_Cabecalho.Centro_Custo)), ' +
        '0, VAL(TRIM(Movimento_Estoque_Cabecalho.Centro_Custo)))) AS CC_C' +
        'ODIGO,'
      
        #39'C. CUSTO: '#39' & VAL(IIF(ISNULL(TRIM(Movimento_Estoque_Cabecalho.C' +
        'entro_Custo)), 0, VAL(TRIM(Movimento_Estoque_Cabecalho.Centro_Cu' +
        'sto)))) AS CC_DESCRICAO,'
      'COUNT(Movimento_Estoque_Detalhe.C'#243'digo_Entrada) AS LANC_QTDE,'
      '0 AS TOTAL_DESCONTO,'
      '0 AS TOTAL_JUROS,'
      'SUM(Movimento_Estoque_Detalhe.Custo_Total)*-1 AS TOTAL_VALOR,'
      'SUM(Movimento_Estoque_Detalhe.Custo_Total)*-1 AS TOTAL,'
      'SUM(Movimento_Estoque_Detalhe.Custo_Total)*-1 AS TOTAL2'
      'FROM Movimento_Estoque_Cabecalho'
      
        'LEFT JOIN Movimento_Estoque_Detalhe ON (Movimento_Estoque_Detalh' +
        'e.C'#243'digo_Entrada = Movimento_Estoque_Cabecalho.Codigo)'
      'WHERE'
      'Movimento_Estoque_Cabecalho.Centro_Custo IS NOT NULL'
      
        'AND Movimento_Estoque_Cabecalho.Centro_Custo IN ('#39'1'#39', '#39'4'#39', '#39'6'#39', ' +
        #39'5'#39', '#39'7'#39', '#39'14'#39', '#39'15'#39', '#39'13'#39', '#39'16'#39', '#39'17'#39', '#39'18'#39', '#39'19'#39', '#39'21'#39', '#39'22'#39')'
      'AND Movimento_Estoque_Cabecalho.Cancelado = 0'
      'AND Movimento_Estoque_Cabecalho.Tipo = '#39'E'#39
      
        'AND Movimento_Estoque_Cabecalho.C'#243'digo_Natureza_Opera'#231#227'o = '#39'9.99' +
        '9'#39
      'GROUP BY '
      'Movimento_Estoque_Cabecalho.Centro_Custo)'
      ''
      'ORDER BY 3, 1')
    Left = 168
    Top = 80
    object qryContasTIPO: TIntegerField
      DisplayWidth = 12
      FieldName = 'TIPO'
      DisplayFormat = '0'
    end
    object qryContasTIPO_DESCRICAO: TWideStringField
      DisplayWidth = 39
      FieldName = 'TIPO_DESCRICAO'
      Size = 255
    end
    object qryContasCC_CODIGO: TFloatField
      FieldName = 'CC_CODIGO'
      DisplayFormat = '0'
    end
    object qryContasCC_DESCRICAO: TWideStringField
      FieldName = 'CC_DESCRICAO'
      Size = 255
    end
    object qryContasLANC_QTDE: TIntegerField
      DisplayWidth = 12
      FieldName = 'LANC_QTDE'
      DisplayFormat = '0'
    end
    object qryContasTOTAL_DESCONTO: TFloatField
      FieldName = 'TOTAL_DESCONTO'
      DisplayFormat = ',0.00'
    end
    object qryContasTOTAL_JUROS: TFloatField
      FieldName = 'TOTAL_JUROS'
      DisplayFormat = ',0.00'
    end
    object qryContasTOTAL_VALOR: TFloatField
      FieldName = 'TOTAL_VALOR'
      DisplayFormat = ',0.00'
    end
    object qryContasTOTAL: TFloatField
      FieldName = 'TOTAL'
      DisplayFormat = ',0.00'
    end
    object qryContasTOTAL2: TFloatField
      FieldName = 'TOTAL2'
      DisplayFormat = ',0.00'
    end
  end
  object dsCentro_Custo: TDataSource
    DataSet = qryCentro_Custo
    Left = 64
    Top = 136
  end
  object qryCentro_Custo: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Centros_Custos')
    Left = 64
    Top = 80
    object qryCentro_CustoCodigo: TIntegerField
      FieldName = 'Codigo'
    end
    object qryCentro_CustoEmpresa: TIntegerField
      FieldName = 'Empresa'
    end
    object qryCentro_CustoDescrio: TWideStringField
      FieldName = 'Descri'#231#227'o'
      Size = 100
    end
    object qryCentro_CustoUsuario: TIntegerField
      FieldName = 'Usuario'
    end
    object qryCentro_CustoCodigo_Texto: TWideStringField
      FieldName = 'Codigo_Texto'
      Size = 7
    end
  end
  object dsContaCaixa: TDataSource
    DataSet = qryContaCaixa
    Left = 64
    Top = 256
  end
  object qryContaCaixa: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    AfterOpen = qryContaCaixaAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Caixa_Contas'
      'ORDER BY C'#243'digo_Conta')
    Left = 64
    Top = 200
    object qryContaCaixaCodigo: TIntegerField
      FieldName = 'Codigo'
    end
    object qryContaCaixaEmpresa: TIntegerField
      FieldName = 'Empresa'
    end
    object qryContaCaixaDescrio: TWideStringField
      FieldName = 'Descri'#231#227'o'
      Size = 80
    end
    object qryContaCaixaCdigo_Conta: TWideStringField
      FieldName = 'C'#243'digo_Conta'
      Size = 30
    end
    object qryContaCaixaPermite_Lanamentos: TBooleanField
      FieldName = 'Permite_Lan'#231'amentos'
    end
    object qryContaCaixaTipo_Conta: TWideStringField
      FieldName = 'Tipo_Conta'
      Size = 2
    end
    object qryContaCaixaUsuario: TIntegerField
      FieldName = 'Usuario'
    end
  end
  object dsContaCaixaCR_Inicial: TDataSource
    DataSet = qryContaCaixaCR_Inicial
    Left = 168
    Top = 256
  end
  object qryContaCaixaCR_Inicial: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    AfterOpen = qryContaCaixaAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Caixa_Contas'
      'WHERE '
      'C'#243'digo_Conta >= '#39'1.4'#39' AND C'#243'digo_Conta < '#39'1.5'#39
      'ORDER BY C'#243'digo_Conta')
    Left = 168
    Top = 200
    object IntegerField1: TIntegerField
      FieldName = 'Codigo'
    end
    object IntegerField2: TIntegerField
      FieldName = 'Empresa'
    end
    object WideStringField1: TWideStringField
      FieldName = 'Descri'#231#227'o'
      Size = 80
    end
    object WideStringField2: TWideStringField
      FieldName = 'C'#243'digo_Conta'
      Size = 30
    end
    object BooleanField1: TBooleanField
      FieldName = 'Permite_Lan'#231'amentos'
    end
    object WideStringField3: TWideStringField
      FieldName = 'Tipo_Conta'
      Size = 2
    end
    object IntegerField3: TIntegerField
      FieldName = 'Usuario'
    end
  end
  object dsContaCaixaCR_Final: TDataSource
    DataSet = qryContaCaixaCR_Final
    Left = 304
    Top = 256
  end
  object qryContaCaixaCR_Final: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    AfterOpen = qryContaCaixaAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Caixa_Contas'
      'WHERE '
      'C'#243'digo_Conta >= '#39'1.4'#39' AND C'#243'digo_Conta < '#39'1.5'#39
      'ORDER BY C'#243'digo_Conta')
    Left = 304
    Top = 200
    object IntegerField4: TIntegerField
      FieldName = 'Codigo'
    end
    object IntegerField5: TIntegerField
      FieldName = 'Empresa'
    end
    object WideStringField4: TWideStringField
      FieldName = 'Descri'#231#227'o'
      Size = 80
    end
    object WideStringField5: TWideStringField
      FieldName = 'C'#243'digo_Conta'
      Size = 30
    end
    object BooleanField2: TBooleanField
      FieldName = 'Permite_Lan'#231'amentos'
    end
    object WideStringField6: TWideStringField
      FieldName = 'Tipo_Conta'
      Size = 2
    end
    object IntegerField6: TIntegerField
      FieldName = 'Usuario'
    end
  end
  object dsContaCaixaCP_Inicial: TDataSource
    DataSet = qryContaCaixaCP_Inicial
    Left = 168
    Top = 376
  end
  object qryContaCaixaCP_Inicial: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    AfterOpen = qryContaCaixaAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Caixa_Contas'
      'WHERE '
      'C'#243'digo_Conta >= '#39'2.5'#39' AND C'#243'digo_Conta < '#39'2.6'#39
      'ORDER BY C'#243'digo_Conta')
    Left = 168
    Top = 320
    object IntegerField7: TIntegerField
      FieldName = 'Codigo'
    end
    object IntegerField8: TIntegerField
      FieldName = 'Empresa'
    end
    object WideStringField7: TWideStringField
      FieldName = 'Descri'#231#227'o'
      Size = 80
    end
    object WideStringField8: TWideStringField
      FieldName = 'C'#243'digo_Conta'
      Size = 30
    end
    object BooleanField3: TBooleanField
      FieldName = 'Permite_Lan'#231'amentos'
    end
    object WideStringField9: TWideStringField
      FieldName = 'Tipo_Conta'
      Size = 2
    end
    object IntegerField9: TIntegerField
      FieldName = 'Usuario'
    end
  end
  object dsContaCaixaCP_Final: TDataSource
    DataSet = qryContaCaixaCP_Final
    Left = 304
    Top = 376
  end
  object qryContaCaixaCP_Final: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    AfterOpen = qryContaCaixaAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Caixa_Contas'
      'WHERE '
      'C'#243'digo_Conta >= '#39'2.5'#39' AND C'#243'digo_Conta < '#39'2.6'#39
      'ORDER BY C'#243'digo_Conta')
    Left = 304
    Top = 320
    object IntegerField10: TIntegerField
      FieldName = 'Codigo'
    end
    object IntegerField11: TIntegerField
      FieldName = 'Empresa'
    end
    object WideStringField10: TWideStringField
      FieldName = 'Descri'#231#227'o'
      Size = 80
    end
    object WideStringField11: TWideStringField
      FieldName = 'C'#243'digo_Conta'
      Size = 30
    end
    object BooleanField4: TBooleanField
      FieldName = 'Permite_Lan'#231'amentos'
    end
    object WideStringField12: TWideStringField
      FieldName = 'Tipo_Conta'
      Size = 2
    end
    object IntegerField12: TIntegerField
      FieldName = 'Usuario'
    end
  end
  object dsProduto: TDataSource
    DataSet = qryProduto
    Left = 64
    Top = 360
  end
  object qryProduto: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT '
      'EMPRESA, '
      'CODIGO, '
      'DIGITO_VERIFICADOR, '
      'DESCRI'#199#195'O '
      'FROM PRODUTO '
      'WHERE EMPRESA = 1'
      'ORDER BY DESCRI'#199#195'O')
    Left = 64
    Top = 312
    object qryProdutoEMPRESA: TIntegerField
      FieldName = 'EMPRESA'
    end
    object qryProdutoCODIGO: TIntegerField
      FieldName = 'CODIGO'
    end
    object qryProdutoDIGITO_VERIFICADOR: TIntegerField
      FieldName = 'DIGITO_VERIFICADOR'
    end
    object qryProdutoDESCRIO: TWideStringField
      FieldName = 'DESCRI'#199#195'O'
      Size = 255
    end
  end
end
